﻿Imports DataObject
Imports BusinessObject
Imports Microsoft.ApplicationBlocks.Data

Public Class frmLoaiHopDongLDDetail

    Private ptyLoaiHopDongLD As New LoaiHopDongLD
    Private oLoaiHopDongLD As New BusLoaiHopDongLD
    Private oFunction As New hDCommonFunction

    Private Sub frmLoaiHopDongLDDetail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If (Me.eActionMode = EditMode.AddNew) Then
            Me.Text = "Thêm mới loại hợp đồng lao động"
        Else
            Me.Text = "Sửa loại hợp đồng lao động"
        End If
        txtMaLoaiHopDongLD.Focus()
        DataBindingToControl(GroupBox1)
    End Sub

    Public Overrides Function ValidateData() As Boolean
        If txtMaLoaiHopDongLD.Text = "" Then
            MessageBox.Show("Mã loại hơp đồng lao động không được để trống", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtMaLoaiHopDongLD.Focus()
            Return False
        End If
        If txtTenLoaiHopDongLD.Text = "" Then
            MessageBox.Show("Tên loại hơp đồng lao động không được để trống", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtTenLoaiHopDongLD.Focus()
            Return False
        End If
        Return True
    End Function

    Protected Overrides Function SaveDictionary() As Boolean
        Dim bResult As Boolean = False
        Try
            ptyLoaiHopDongLD.MaLoaiHDLD = txtMaLoaiHopDongLD.Text
            ptyLoaiHopDongLD.TenLoaiHDLD = txtTenLoaiHopDongLD.Text
            ptyLoaiHopDongLD.HoatDong = chkHoatDong.CheckedValue
            If (eActionMode = EditMode.AddNew) Then
                oLoaiHopDongLD.InsertLoaiHopDongLD(sConn, ptyLoaiHopDongLD)
            ElseIf (eActionMode = EditMode.Edit) Then
                ptyLoaiHopDongLD.SoLoaiHDLD = RowDetail.Item("SoLoaiHDLD")
                oLoaiHopDongLD.UpdateLoaiHopDongLD(sConn, ptyLoaiHopDongLD)
            End If
            bResult = True
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "Thông báo lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            bResult = False
        End Try
        Return bResult
    End Function

End Class
